10 REM
15 REM  SPRITE EDITOR BOOT
20 REM
25 PRINT "[147]":POKE 53280,14:POKE 53281,6
30 PRINT"LOADING ...":GOSUB 100
40 PRINT "LOAD"CHR$(34)"SCROLL.C"CHR$(34)",8,1"
41 PRINT "NEW"
42 PRINT "LOAD"CHR$(34)"SPRITE ED.C"CHR$(34)",8"
50 POKE 198,10
55 DATA 19,13,13,13,32,32,82,85,78,13
60 FOR I=1 TO 10:READ X:POKE 630+I,X:NEXT
70 POKE 44,64:POKE 16*1024,0:POKE 56,125:CLR:NEW
100 PRINT"          [146]     [146]     [146]  [146]      [146]     [146]
110 [153]"       WAIT     WAIT   WAIT  WAIT   WAIT  WAIT    WAIT    WAIT
120 PRINT"      [183][183][183] [146]  [146][183][183][183]  [146][183][183][181]  [146]    [146]    [146][183]
130 [153]"      USRUSRUSRUSR USR    USR  COS USR   USR   USRUSRUSRUSR
140 PRINT"          [146]     [146]  [146]      [146]     [146]     [146]
150 [153]"       WAIT     WAIT   WAIT  WAIT    WAIT    WAIT   WAIT  WAIT   WAIT
160 PRINT"       [146][183]    [146]   [146]  [146]    [146]    [146]   [146]  [146][183][183][181]
170 [153]"      USRUSRUSRUSR USRUSRUSRUSR USR   USR   USRUSRUSRUSR USR  COS
180 RETURN